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ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
ONLY IN ACCORDANCE WITH R oF SUCH biC ENSE AND WITH THE 
NCLUSION OF a | Rss Sgt th NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 

THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS60 TO TEST SUCCESSFUL 
OPERATION OF THE TIME SYSTEM SERVICES. EACH SERVICE IS INVOKED 
UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
OPERATION OF THE SERVI ce FOR EACH OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR AN SS$ MAL STATUS CODE, EXPECTED RETURN ARGUMENTS 
AND EXPECTED FUNCTIONAL ITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


; AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: JUN, 1978 
; MODIFIED BY: 
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ofgy Tests rine senvs cuct s. rp-spp-t94e 99:89:14 yaNCUme masse YOR aye.» Pe i 


‘ .SBTTL DECLARATIONS 
5 ; INCLUDE FILES: 
PRVDEF ; PRIVILEGE BIT DEFINITIONS 
PHDDEF ; PROCESS HEADER OFFSETS 
: MACROS: 
4 > EQUATED SYMBOLS: 
99000001 SHORT_ASC = 1 ; INDICATOR FOR SHORT SASCTIM OUTPUT 
0000000 LONG_ASC = 0 > INDICATOR FOR LONG SASCTIM OUTPUT 


00 63 : OWN STORAGE: 
0: ; 


vOe-008" SALEAALHToRRY TESTS Tme sens uct s. rg-spp-tgyy 00:89:14 yarns mae, voce mani P28 


0000 j -PSECT RODATA.RD.NOWRT , NOBXE. LONG 
TEST MOD _NAR :: STRING +s SATSSS TEST MODULE NAME 
4 TEST“MOD"NAM D: STRING I,<SATSSS TEST RODUL NAME DESCRIPTOR 
5 MSGI-INP“CTL:~ STRING I,< SSTIM! 42u: tolgtts 
2 ‘ afA0 i STRING FOR MSG1 IN SUCCOMMON.MAR 
9 MSG3_ERR_CTL:: STRING 1,< *SSTIM!4ZW: 
28 MP0 CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
0 ; TABLE OF TIMBUF STRINGS FOR COND1 TABLE 
20 ; 739 31 p 43 45 44 3 5 1 2 C1_€LT1: sASCIL \25=DEC-1973 21:46:00.05\ 
i 8 6 D 47 ; 4} D 1 eb 83 C1_ELT2: eASCIIT \31-AUG=2001 01:32:29.94\ 
A 38 j 0 0 3 3? 5 6 6 0 84 C1_ELT3: eASCII \ 5753 18:56:01.13 \ 
0 1 2€ 31 30 3a 36 0 
D 20 095 5 C1_ELT4: sASCII \e#\ 
097 STD_TIMADR_BTM: ; TABLE OF STANDARD TIMADR ARGUMENT 
097 go t se. VALUES OUTPUT BY S$BINTIM 
A2C67D20 097 _ .LONG *XA2C67D20 ; LOW-ORDER LONGWORD ... 1ST COND 1 ELEMENT 
9810 AC 0098 91 LON =x09810 AC ; HIGH-ORDER LONGWORD ... 1ST COND 1 ELEMENT 
4347A340 O09F 9 “LONG  *X4347A34 ; LOW-ORDER LONGWORD ... 2ND COND 1 ELEMENT 
00A0154 OAS 9 “LONG  *X00A0154 ; HIGH-ORDER LONG se» OND COND 1 ELEMENT 
2A513360 0A 94 “LONG *X2A513360 ; LOW-ORDER LONGWORD ... 3RD COND 1 ELEMENT 
FFEES6A7 QOAB 95 [LONG  “XFFEESOA7 ; HIGHCORDER LONGWORD ... 3RD COND 1 ELEMENT 
OOAF 97 S§TD_TIMBUF_ATMS: ; TABLE OF STANDARD TIMBUF ARGUMENT 
OOAF 86=-«O98 >... VALUES OUTPUT BY SASCTIM (SHORT) 
OAF 99 : NOTE -- WILL SKIP CHECKING HUNDREDTHS 
OAF 100 : OF A SECOND DUE TO ROUNDING ERROR 
Q00000EB'0000000A O0AF 108 : .LONG 10,S_T_A_DATA¢12 ; STRING DESCRIPTOR FOR 1ST COND 1 ELEMENT 
00000101'0000000A 0087 10 [LONG 10.S7~TTA~DATA+34 : STRING DESCRIPTOR FOR ho COND 1 ELEMENT 
00000110'0000000A BF 104 .LONG 10,S"TZATDATA+49 ; STRING DESCRIPTOR FOR 3RD COND 1 ELEMENT 
0C7 198 STD_TIMBUF_ATML: : TABLE OF STANDARD TIMBUF ARGUMENT 
00¢7 107 F VALUES OUTPUT BY SASCTIM (LONG) 
0C7 108 ; NOTE = -- WILL SKIP CHECKING HUNDREDTHS 
et 109 -~ A SECOND DUE TO ROUNDING ERROR 
000000DF 00000016 00C7 111° LONG +S_TLALDATA __ ; STRING DESCRIPTOR FOR 1ST COND 1 ELEMENT 
9000 OFS" 00000016 CF 118 LONG STTIATDATA+22 ; STRING DESCRIPTOR FOR gh COND 1 ELEMENT 
108° D7 113 LONG *STIA-DATA+44 : STRING DESCRIPTOR FOR 3RD COND 1 ELEMENT 
ODF 115 & T_A_DATA: ; TABLE OF STRINGS FOR THE STD_TIMBUF_ATM 
ODF 116 t see DESCRIPTORS ABOVE 
20 33 37 39 31 2D 43 45 44 2D 35 ODF 118° sASCIL \25=DEC-1973 21:46:00.0\ 
0 ¢ 9 0 3A § 34 3A 31 OeB 
20 31 30 D 47 55 41 2d 31 OFS 119 sASCII \31-AUG=2001 01:32:29.9\ 
30 3A H ¢§ H § it 33 $ : g i : 120 sASCIL \5753 18:56:01.1\ 
1 2€ 31 01 
1A 121; 
11A 133 S1D_TIMBUF _NMT: ; TABLE OF ADDRESSES FOR STANDARD TIMBUF 
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SATS SATS SYST SRV TESTS TIME SERVS Suck S. 16-SEP-1984 00:59:14 VAX/VMS Macro V04- Page 4 
vee DECLARATIONS iat Pi 90:33:13 UETPSY. TST eye MAR; 1 - mw 
1}8 ] ; ; 3 ee. ARGUMENT VALUES OUTPUT BY SNUMTIM 
9000126; 141A 125° -ADDRESS $_T_N_DATA y ADDRESS OF BUFFER FOR 1ST COND 1 ELEMENT 
0000134" O11E 1 : -ADDRESS S-T“N“DATA+14 ; ADDRESS OF BUFFER FOR 2ND COND 1 ELEMENT 
0000142" ¢. eADDRESS S“T“N“DATA+28 ; ADDRESS OF BUFFER FOR 3RD COND 1 ELEMENT 
1 129 § T_N DATA ; TABLE OF 7-WORD BUFFERS POINTED TO BY 
! é } ? 3 «ee THE STD_TIMBUF_NMT ADDRESSES ABOVE 
5 0015 0019 000C 0785 01 132 ° -WORD 1973,12,25,21,46,0,5 
— 0010 09 0001 iE 0008 a701 134 «1 4 WORD 001 8 sf 1738.26 $4 
0000 0001 0038 0012 1679 0000 0000 0142 134 “woRD 0,0,5753,18:56.1,13 


SATS SATS SYST SRV TESTS TIME SERVS uc? S. 16=SEP- AX/VMS Macro V04- P 5 
SAS 88. BE CPARAT IONS grFEE 188s Bossasud LOETECS CRESS aN ees ee mansy P29" 62, 
a G } $ PRIVMASKI “Bea” RD. —— ADDR OF PRIVILEGE ots (IN PHD) 
itty 1 8 TIMADR_BTM: -BLKQ) 1 : TIMADR ARGUMENT FOR S$BINTIM 
10 139 TIMBUF "ATM: STRING 0,24 + TIMBUF ARGUMENT FOR SASCTIM 
0000003 ; 140 TIMLENTATM: -BLKW + TIMLEN ARGUMENT FOR $ASCTIM 
00000040 0 141 TIMBUF “NMT: “BLKW 7 : TIMBUF ARGUMENT FOR $NUMTIM 
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ATS SYST T 
ONDITION TABLE 

4 143 .SBTTL CONDITION TABLES 
4 145 ; eee CONDITION TABLES FOR TIME SYSTEM SERVICES eeeee 
4 123 COND 1,DESC,<TIMBUF>,- 
4 148 <DATE IN PAST (INPUT TO SBINTIM)>,- 

040 14 ATE IN FUTURE (INPUT TO $BINTIMS>,- 

0040 130 <DELTA TIME INTERVAL (INPUT TO $BINTIM)>,- 
40 157 <CURRENT TIME (INPUT TO $BINTIM)>,- 

940 13¢ <CURRENT TIME (FROM $GETTIM)>,- 

0000017. 0101 «154 LONG 23 : LENGTH OF STRING 
titty 195 155 .ADDRESS C1_ELT1 : ADDRESS OF STRING 
9900001 199 136 LON 24 + LENGTH OF STRING 
00000068' 0100 15 -ADDRESS C1_ELT2 : ADDRESS OF STRING 
00000015 0111 158 LON 21 + LENGTH OF STRING 
00000080" 0115 159 -ADDRESS C1_ELT3 ; ADDRESS OF STRING 
9000000¢ 119 160 LON 2 : LENGTH OF STRING 
00000095" 011D 161 -ADDRESS  C1_ELT4 : ADDRESS OF STRING 

00000000 00000000 121 168 LONG 0,0 t NO DESCRIPTOR FOR THIS TABLE ELEMENT 
0129 164 COND  2,LONG,<CVTFLG>,- 
0129 165 <SHORT FORM OF $ASCTIM OUTPUT>,- 
0129 166 <LONG FORM OF S$ASCTIM OUTPUT>,- 
00000001 O83 168 ~ LONG SHORT_ASC ; THE SHORT AND ... 
00000000 0176 169 LONG LONG_ASC ; ... LONG OF IT 
017A 170; 
017A 171 COND 3,NULL 
0178 1% 
0178 «+17 COND 4,NULL 
017¢ «17% 
017¢ 3175 COND 5, NULL 
017D 176 
00000000 177 .PSECT SATSSS60,RD,WRT,EXE 
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IMPLICIT OUTPUTS: 


THSETUP: COND, TABLE. INDEX REG 
ALL PRIVILEGES ACQUI 


~ (R2,3,4,5,6) CLEARED; 


= 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


N 8 
SATSSS60 SATS SYST SRV TESTS TIME SERVS (SUCC S. 16-SEP-1984 AX/VM v04-0 p 
¥042000 TM_SETUP, TM_CLEANUP g7SEb =| 38 88: 3331 UETPSY. SREISATS 193589, mt. 

0 7 .SBTTL TM_SETUP, TM_CLEANUP 
FUNCTIONAL DESCRIPTION: 

0 SETUP AND TM_CLEANUP ARE CALLED TO PERFO 

00 REQUIRED HOUSEKEEPI PING AT THE BEGINNING AND END, RESPECTIV vELY, OF 
00 TEST MODULE EXECUTI 

00 CALLING SEQUENCE: 

00 BSBW TM_SETUP B8SBW TM_CLEANUP 

09 INPUT PARAMETERS: 

00 NONE 

0 IMPLICIT INPUTS: 

; NONE 

0 OUTPUT PARAMETERS: 

0 NONE 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 4 SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
0 (VIA RSB) IF ERROR ENCOUNTERED. 
0 oe 
0 
0 
0 
0 TM_SETUP: : 

52 D4 000 CLRL : ; INITIALIZE 

53 «4 «000 CLRL OR t .. CONDITION 

54 OG 00 4 CLRL = RG 5 cas TAME 

55 D4 00 s CLRL sR t leccee INDEX 

36 bs 00 6 CLRL = R6 Serrerey? REGISTERS 

FFF3" 30 00 7 BSBW  MOD_MSG_P : PRINT TEST MODU LE BEGIN MSG 
00000000'EF 000 0000 EF DE 0 8 MOVAL TEST MOD gee TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
03 00 900 0000 °F F 01 9 INSV #SUCTESS7#0,#3,MOD_MSG_ cots ; ADJUST STATUS CODE FOR SUCCESS 
03 0 MODE 5$,K RNL KERNEL MODE TO ACCESS PHD 
59 00000000°9F D0 004 1 MOVL Wie L$GL R9 GET PROCESS HEADER ADDRESS 
00000000'EF 69 DE 004 ; MOVAL PHS PRIVMSKCRD) parma GET PRIV MASK ADDRESS 

05 MODE ROM,5$ ; BACK TO USER 
05 4 PRIV ADD, ALL OE ET ALL PRIVILEGES 


ssi 


ATS SYST SRV TESTS TIME SERVS Ruck S. 16-SEP-1984 00:59:1 AX/VMS Macro a 
M.SETUP, TM CLEANUP 873 pa} 98¢ 2:33:43 LUE TPSY. SRCD A $560.MAR;1 "7 §; 
77 5 SSETPRN S iret MOD _NAME _D ; SET PROCESS NAME 
84 SS_CHECR RMAL ; CHECK STATUS CODE RETURNED FROM SETPRN 
05 oss 8 TM. ree: ; RETURN TO MAIN ROUTINE 
FF4A* 30 008 9 BSBW MOD _MSG_PRINT ; PRINT TEST MODULE END MSG 
05 0086 240 RSB ; RETURN TO MAIN ROUTINE 
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een es 
CONDS:: 
RSB 
COND5_CLEANUP:: 
RSB 


cf 
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ans SSEP=1986 2:33:03 LOETPSY. SRESSATS 


; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
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~SBTTL FORM_CONDS 


"FUNCTIONAL DESCRIPTION: 


ORM CONDS FORMATS AND PRINTS INF ee ABOUT 
THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES 


; CALLING SEQUENCE: | 
BSBW FORM_CONDS 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


R2,3 CONTAIN CURRENT COND 


4,5,6 IT 
FOR CON aD, TABLES 1,2,3,4,5, RESP 
tee bit TITLE TEXT FOR CONDX TABLE 

FONDX™ “TAB - ELEMENT TEXT FOR > GONDX TABLE 
CONDX"C = CONTEXT OF THE CONDX TABLE 
CONDX"E = DATA ELEMENTS OF THe CONDX TABLE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE 


N TABLE INDEX VALUES 
TIVELY. 
N 


10 
EC 
co 
FO 
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Bete Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Fe Be Ge Ge Se Se Se Ge Ge Se Se Se Sse Se Ge sate | 


FORM_CONDS: : 
SFAO_S MSG1_INP_CTL,FAO_LEN,FAO_DESC. TESTNUM 
FORMAT CONDITIONS HEADER MSG 


—=—=QOOCCOSOCOCOOCOSOOCOCOCOC CSCO GCSOOSCOCCooooooooooooCoOooOoOoOoOoOOOOOOCOOOOOO 
DRERPD_Q_ QLD AD ess Be Be EE AAAI NANI WNIWIWIPINPONINININPONPP OO 
CON AME WNI DS OD NAUES WN SO OD NA UE WIN 9 ODA EWN OS OD NIA UE WN O OONOUS 
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FFID® 30 BSBW OUTPUT_MSG D PRINT IT 
4 = «1 91 CMPB # ONDI~C #NULL : is” CONDITION 1 NULL ? 
0 12 BNEQU : NO -- CONTINU 
000 31 108 Rw FORM_CONDSX : YES -- SUBROUTINE IS FINISHED 
00000000 ‘EF OOO0040'EF OD MOVAL COND1_T Bnei : SAVE epenet? OF CONDITION 1 TITLE FOR FAO 
00000000'EF 0000004 hak D F MOVL ped ie Red S 8 ; SAVE ADDR OF COND 1 CURR yext ELT FOR FAO 
00000000°EF 1 9 MOVB OND G_CTX SAVE CONDITION 1 CONTEXT FOR FAO 
MOV_VAL CONDI Jue cONDT Eth, MSG _baTAL ; GIVE COND 1 DATA VALUE TO FAO 
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AT 
ORM_CONDS EP=1984 UETPSY.SRCJSATSSS60.MAR; 1 
FEES 30 115 $ BSBW WRITE_MSG2 ; FORMAT AND WRITE CONDITION 1 MSG 
1% «#806 0«(O91 O11 CMPB ss #COND2_C, #NULL ; 1S CONDITION NULL ? 
; i 118 «37 BNEQU + NO == CONTINU 
OOA i fe as BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
00129°EF DE 01 74 MOVAL COND ; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
000sn008"¢ o,f F oopoos ste FES 06 1 E 75 MOVL COND STABERSS msc 8B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
00000000'EF 04 90 01 i: MOVB #CON b2,¢ SAVE CONDITION 2 CONTEXT FOR FAO 
136 37 MOV_VAL COND2_C EON? etR3). MSG_ BATA: GIVE COND 2 DATA VALUE TO FAO 
FEB3" 30 14A £8 BSBQ  WRITE-MSG : FORMAT AND WR TE CONDITION 2 MSG 
4 16 91 0140 = 37 CMPB ss #COND3_C, #NULL : IS CONDITION NULL ? 
03 1 13 0 BNEQU + NO == CONTINUE 
006D 1 os RW FORM_CONDSX : YES == CONBROUTINE IS FINISHED 
00000000'EF — 0000017A'EF DE 12 g MOVAL COND ss : SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
00000000"EF 000001 a° EF44 DO 0160 4 MOVL COND sTiB Ra] MSG_B8 ; SAVE ADDR OF COND 3 CURR TEXT at FOR FAO 
00000000'EF 14 90 1g 5 MOVB $G_CTXT~ SAVE CONDITION 3 CONTEXT F FAO 
1 6 MOV_VAL CON OND3 u € EONDS ECR4],MSG bata; GIVE COND 3 DATA AVALUE 10 10. FAO 
FEBA’ 30 017 BSBO FORMAT AND WRITE CONDIT 
4 1% 91 1% 8 CMPB #CONDE : #NULL : IS CONDITION 4 NULL ? 
47 13 «017 89 BEQLU FORM_CONDSX ; -- SUBROUTINE IS FINISHED 
00000000'EF 00000178 'EF DE 178 ©6390 MOVAL CONDE i A : SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
00000000°EF  0000017B'EF4S D0 018 91 OVL  COND4~TABLRSJ,MSG_ ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
00000000'EF 14 90 019 36 MOVB §#COND%_C,MSG_CTXT~ VE CONDITION 4 CONTEXT FOR FAO 
19 9 MOV_VAL COND4_C mi NBs “ECRS), MSG_ batal : GIVE COND 4 DATA VALUE TO FAO 
FE64" 30 0199 94 BSBQ W 3; FORMAT AND WRITE CONDITION 4 MSG 
4 16 91 019¢ 395 CMPB = #CONDS_C,, @NULL t IS CONDITION 5 NULL ? 
21 13 «+O19F §#8639 BEQLU FORM, CONDSx : YES == SUBROUTINE IS FINISHED 
00000000'EF 0000017C EF DE 1A1 39 MOVAL COND MSG A : SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO 
00000000'EF  OO00017C'EF46 DO O1AC 398 MOVL cons <The R6J,MSG_B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO 
00000000'EF 14 90 0188 399 MOVE soft MSG_CT SAVE CONDITION 5 CONTEXT FOR FA 
O1BF 400 MOV_VAL COND) 50 CONS ECR6],MSG_DATA1 give COND 5 DATA VALUE TO FAO 
FE3E" 30 O1BF 401 WRITE-MSG2 : FORMAT AND WRITE CONDITION § MSG 
o1¢g 40¢ FORM_CONDSX: 
05 O1C2 40 RSB ; RETURN TO CALLER 
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H 9 
SATSSS60 SATS SYST SRV TESTS TIME SERVS (SUCC S. 16-SEP- AX/VMS v04=0 Page 14 SAT 
5042800 VERIF $7 SEE 38 v4 33: \3 UETPSY. SRCISAT 1eeSO0.MAR: 1 ve ® v04 
VERIFY:: 
00000000" EF 9 TSTB CELAG ; SHOULD CONDITIONS BE PRINTED ? 
1 BEQL $ : NO == CONTINU 
FEF3 3 a BSBW  FORM_CONDS : YES -- FMT & PRINT ALL CONDS FOR THIS T.C. 
04 53 D1 ; CMPL =—s R2,, ; STH COND 1 ELEMENT 
03 «13 BEQL «=s«88S : YES <= ISSUE SCE TTI INSTEAD OF $BINTIM 
007A 31 pa BRW 15$ : NO == GO ISSUE $BINTIM 


weneee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeee« 
SGETTIM_S hs gt BTM 


AVIA 9 FP MMMMO OCU VIF NMOOAOOMOMOMOOO 
Fn eke eb dak tae tek dee De de ee tek de ek 
Sete 


S 
Y 
if 
63 
39 
; 
E 0 
|i 
ey 
: 7% 
g the 
: is 
00000000' 8F 50 D1 3 8 CMPL “RO, #SS$_NORMAL : CODE RECEIVED = CODE EXPECTED ? 
03 «(12 A 80 BNEQU 126 : NO == PROCESS ERROR 
O16E 31 0 : 81 aa BRW 30$ t YES == CONTINUE WITH SASCTIM 
00000000'EF  00000000'8F DO OTES HE "  MOVL. «ss #SS$_NORMAL, EXPV : NO == LOAD UP EXPECTED AND vit 
O0O000000'EF 50 DO OFA 84 MOVL RO,RECV RECEIVED VALUES, THEN EXIT 
0201 485 ERR_EXIT LONG, <INCORRECT STATUS tobe RETURNED FROM GETTIM> 
0 0 8 15$: 
0 0 88 : eeeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE texeee 
0 0 90 ° SBINTIM_S TIMBUE = TIMBUFCR2], 
0 91 TIMADR=TIMADR_BIM 
00000000'8F 50 D1 0264 36 CMPL = RO, #SS$_NORMAL ; CODE RECEIVED = CODE EXPECTED ? 
61 13 0268 49 BEQLU 208 : YES == CONTINUE 
00000000'°EF 00000000'8F 06 6D 49% MOVL #SS$_NORMAL,EXPV NO -- LOAD UP EXPECTED AND ... 
00000000'EF 50 OD 78 «495 MOVL _RO,RECV RECEIVED VALUES, THEN EXiT 
43 496 a ERR_EXIT LONG, <INCORRECT STATUS ibe" RETURNED FROM BINTIM> 
02 52 D1 O2CE 498 — CMPL R #2 ; LOOKING aT AGURRENT TIME ? 
03 15 O2D1 499 BLEQ $ : NO == COMPARE AGAINST STANDARDS 
0087 31 Ds ; 0 aa BRW 0$ : YES == SKIP COMPARE 
57 00000097°EF42 7E 0206 é : VAQ STD TIMADR_BTMCR2],R7 ; AVOID INDEX MODE IN C 
y BB DE PUSHR #CMPC SAV ; SAVE SOME REGS USED BY aon C (R2 AND R3) 
67 00000008 EF 08 E 4 cmPCOé gb iMADE OTH. (RD 3 DID SBINTIM PRODUCE EXPECTED RESU 
000'8F BA O2EA 5 POPR #CMPC : RESTORE SOME REGS USED BY CMPC (R ‘ae R3) 
6p 13 FE : BEQLU : YES == CONTINUE 
00000000'EF  O0000097°EF42 7D OdF va STD Tio -BIMCR2],EXPV ; NO =~ LOAD UP EXPECTED AND 
00000000 ' EF 00000008 EF 7D FC : MOVa TIMAD “RECV med RECEIVED VALUES, THEN EXIT 
ERR_EXIT QUAD, ZUNE XPECTED VALUE FoR TIMADR ARGUMENT 
5 19 30$ a ee 
00 00000172°EF43 1 I "  CMPL SYTFLGLR33,#LONG_ASC ; LONG SASCTIM OUTPUT INDICATED 2 
11. «13 é 1 BEQL $ ; YES -- GO GET STD TABLE OF LO 
59  QOO000AF'EF42 7E 036 14 MOVAQ STD_TIMBUF_ATMSCR2].R9 ; GET STD TABLE OF SHORT TIMBU VALUES 
00000010" EF D rt 13 MOVL #11, TIMBUF_ATM : (RO USED SEER HORT BU peer 
ge 9 76 2 vel BRB 378° - : 6d" 1SSUE ASCTIM 
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SATS SYST SRV TESTS TIME SERVS duce S. 16-SEP-1984 00:59:1 AX/VMS Macro V04-0 Pa 15 SAI 
VERIFY 8735p =| oP be 33:43 UETPSY.SRCIJSATSSS60.MAR; 1 aa (1) v04 
MOVAQ S$TD_TI peur = R9 ; GET STD yaar OF LONG TIMBUF VALUES 
MOVL #24, TIMBUF ATM 3 «++ AND USE A LONG BUFFER 


3 weweee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 


SASCTIM_S ee Le ATM, - 
TIMBUF 


TIMBUF-ATM, = = 
I MADR=TIMADR BIM, = 
pT te 

CMPL RO, #SS$_NORMAL ; CODE RECEIVED = CODE EXPECTED ? 
BEQLU 408 : YES == CONTINUE 
MOVL #SS$_NORMAL,EXPV ; NO == LOAD UP EXPECTED AND ... 
MOVL __RO,RECV ..» RECEIVED VALUES, THEN EXIT 
ERR_EXIT LONG, <INCORRECT STATUS tobe RETURNED FROM SStrins 
CMPL R2 #2 ; LOOKING aT ASURRENT TIME ? 
BLEQ 46 45 NO == COMPARE AGAINST STANDARDS 
BRW 50$ : YES == SKIP COMPARE 
PUSHR ¥#CMPC SAVE R2 & R3 BEFORE CMPC 
CMPC (RR) sith, aT IMBUF LATMed DID SASCTIM PRODUCE EXPECTED RESULT ? 
POPR #CMPC_SAV hest TORE R2 & R3 AFTER CMPC 
BEQLU 50$ ; e+ T0 Soa 
MOVa = (R9) “EXP NO =- LOAD UP EXPECTED A 
MOVa =‘ TIMBU RECV RECEIVED VALUES , THEN. EXIT 
ERR_EXIT DESC SEs au fot’ TIMBUF ARGUMENT >; 


eeenee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE **#*ee2 


SNUMTIM_S eet ine NAT, 
TIMADR=TIMADR “BTM 


CMPL RO, #SS$_NORMAL ; CODE RECEIVED = CODE EXPECTED ? 
BEQLU 608 + YES == CONTINUE 
MOVL #SS$_NORMAL,EXPV ; NO == LOAD UP EXPECTED AND ... 
MOVL v RECEIVED VALUES, THEN Exit 
ERR_IXIT LONG, <INCORRECT STATUS tobe RETURNED FROM NUMTIM> 
CMPL R2 #2 : LOOKING AT AGURRENT TIME ? 
BLEQ 65$ + NO == COMPARE AGAINST STANDARDS 
BRW VERIFYX : YES == SKIP COMPARE 
MOVL § STD_TIMBUF_NMTCR2],R7 ; GET READY FOR ... 
MOVAL TIMBUF_NMT7RE t se SERIES OF COMPARES 

PL. —s-(R7), : BO WORDS 2 OF TIMBUF MATCH STD ? 
BEQLU 708 : YES == GO LOOK AT MORE oF TIMBUF 

ROVE (R ) EXPY ; NO ~~ LOAD UP EXPECTED A 

(RB) -RECV RECEIVED VALUES, THEN. EXIT 
Eee “EXIT LONG, <UNEXPECTED D VALUE FoR TIMBUF ARGUMENT 
) FROM SNUMTI 

CMPL =: & (R7) , 4 (RB) ; DO WORDS 3 & 4 OF TIMBUF MATCH STD ? 
BEQLU 80$ : YES == GO LOOK AT MORE OF TIMBUF 
MOVL  4(R7),EXPV ; NO ~~ LOAD UP EXPECTED AND 
MOVL  4(RB)-RECV > ... RECEIVED VALUES, THEN EXIT 


—_—— 


19 
SATS SATS SYST SRV TESTS TIME SERVS (SUCC S. 1 SeP=1 0:59:14 VAX/VMS Macro V04- Page 1 SA) 
vette VERIFY g-3 138 8e: 33: {3 LUETPSY. SREISATSSSO «MAR; 1 . 9) v04 
586 2 ERR_EXIT LONG, <UNEXPECTED yA VALUE FOR TIMBUF ARGUMENT >, - 
ee f . FROM SNUMTIM> 
08 AB «(0B A7~sCODt 1A 8 CMPL = B(R7) , (RB) : DO WORDS 5 & 6 OF TIMBUF MATCH STD ? 
7% 13 F p BEQLU VERIFYX ; YES -- DON'T LOOK AT WORD 7 ... 
1 $ ..« BECAUSE OF ROUNDING ERROR 
"EF 08 A? OD 1 : MOVL (R7) ,EXPV ; NO == LOAD UP EXPECTED AND 
000000" EF AB OD 9 (RB) ,RECV w+. RECEIVED VALUES, THEN EXIT 
631 4 ERR_EXIT LONG <UNEXPEC TED VALUE FoR TIMBUF ARGUMENT ~- 
631 5 <(WORDS 5 & 6) FROM SNUMTIM> 
6 3 $ VERIF YX 
05 069 ; RETURN TO CALLER 


kK 9 
SATSSS60 SATS SYST SRV TESTS TIME SERVS (SUCC S. 16-SEP-1984 00: AX/VMS o v04-0 Pa 17 
5042000 VF Y_CLEANUP os) eats 7 89: 33: \3 YOETPSY. ee aSATSSS6 -MAR; 1 v (1) 
~SBTTL VFY_CLEANUP 
3 FUNCTIONAL DESCRIPTION: 
696 VFY CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE 
696 EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST 
696 ASSUME THAT VERIFY Uay hor HAVE EXECUTED IN ITS ENTIRETY (IF AN 
$36 ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
69 ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS; THIS IS REQUIRED 
696 IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING, 
0696 WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN 
2696 POSSIBLY DISCOVERING A SECOND ERROR. 
696 CALLING SEQUENCE: 
0696 
0696 BSBW VFY_CLEANUP 
0696 
0696 INPUT PARAMETERS: 
0696 
0696 NONE 
0696 
BO29 IMPLICIT INPUTS: 
0696 R2,3,4,5,.6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 


FOR COND D TABLES 1,2,3,4,5, RESPECTIVELY. 


0696 FOR P 
0696 CONDK“E ‘= ADDRESS OF TABLE ee DATA are FOR CONDX 
0696 TABCE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 
egy A THE ARGUMENT NAME MAY BE USED AS A SYNONYM 
0696 FOR CONDX_E. 
0696 
Bene OUTPUT PARAMETERS: 
696 NONE 
0696 
0696 IMPLICIT OUTPUTS: 
696 
NONE 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_CHECK AND ERR_EXIT MACROS rane PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED 


PAA AAA AAO 


Sete Ge Se Se Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Se SeSe Se Se Sete Sete Sete Ge Se 


VFY_CLEANUP: : 
RSB 
- END 


oO 
“ 


; RETURN TO CALLER 
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BBB PE A.AINIANIAIIGSDRIPINIPUNIPIDINIDD 2 9 tS QOD DTOCOCOCOCOCOCOOOWOOOVOOOOWOE 
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SATSSS60 
Symbol table 


$$$ A 
SSSSTRINGS 


OND1_C 
COND1_ CLEANUP 
COND1_E 
COND1_H 


COND1~T 
COND “TAB 


COND2_C 
CONDS~ CLEANUP 


COND3_C 
COND 3~ CLEANUP 
COND3-H 
COND3~T 
COND3~ TAB 
COND4 

COND4_C 
COND4~ CLEANUP 
COND4"H 
COND4~T 
COND4~TAB 
CONDS~ 
COND5_C 

COND5~ ~ CLEANUP 
COND5"H 

COND5~ 


CONDS” TAB 
CTL$GC_PHD 
CVTFLG 


EFLAG 


m4 
CO FN DOOM "W® 
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NULL 

OUTPUT _ASG 

PHD$Q_PRIVMSK 

PRIVMASK 

PIV ARGS 
PaOce SS ERR 


P=1986 Oe :82:43 


geeerere 
geeeerenr 
geaereree 


oe 


eeneeere 
eeeeeere 
000001 
$0000039 
etenenee 
eeeeeeee 
eetrerene 
eeeeenee 
0000000 
0000014 
eeeneere 
teeeeeee 


00000000 
00000000 
00000002 
RRERARER 
00000008 
REAKREEE 
RRERKAEE 
RRRKEREE 
00000001 
RERRKARE 
00000097 
000000C7 
QOOOO0AF 
QOOO011A 
REA 
Reeeenee 
RAKE Ke 
RRRKEEKE 
Reeekeee 
ReReeeeee 
Ree 
Reekeeeek 
Reeekeee 


Q00000DF 
00000126 


RAReeeeee 


00000000 
00000009 


aa 
aS 
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SATSSS60 SATS SYST SRV TESTS TIME SERVS (SUCC S. 16-SEP-1 AX/VMS 0 V04- Page 19 
Symbol table g7865 71984 80: 33: 13 YOEtPSy Y.S RE TSa tossed. mars 1 ° (1) 
VERIF YX 5 R ¢ 
VFY_ CLEANUP § RG 4 
wort = G 
WRITE _MSG2 aeeeeeee = =6X | (04 
be ere een wee eee ee ay 
! Psect synopsis ! 
gore nen ewe wen ona + 
PSECT name Allocation PSECT No. Attributes 
aes . 8 ( ‘on 9 ( -) NOPIC USR CON ABS’ LCL aod rte NOEXE wone NOWRT NOVEC BYTE 
$aBS ( ) ( -) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
RODATA 1 ( 3 ) § ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA 1 ( 53°} ( -) NOPIC USR CON REL LCL oe NOEXE RD WRT NOVEC LONG 
SATSSS60 697 ( 1687.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
tee ee wee ee ww ewww ee eee eee Ht 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization ; 0:00: 8-9 0:0 :00.42 
Command processing 1 0:00: 8 :00:01.94 
Pass 24 8: : 8° 4 0:00:14.4 
Symbol table sort :00:00.49 3 :00.4 
Pass 2 13 0:00:01.95 :00:03.3 
Symbol table output 15 :00:00.1 0:00:00.1 
Psect synopsis output :00:00. 0:00:00. 
Cross-reference output :00:00. 8: 0 oe 
Assembler run totals 57 :00:10. :00:20. 


{hg at set Limit was 1500 pages. 
85 bytes (74 pages) of virtual memory were nee to buffer the intermediate ggde. 
There were 20 pages of symbol table , Pace al tocated to hold 312 non-local gnd 9 local symbols. 
$6 source Lines were read in Pass 1, producing 25 object records in Pass 
5 pages of virtual memory were used to define 26 macros. 


"macro Library statistics ! 


eeeeeeaenee eeeeceeoeeeeoaoooe} 


Macro Library name Macros defined 
=BS558buAze: Pte MLB; | ? 
SDUA SYSLIBISTARLET. hue: 32 13 
TOTALS (all libraries) 2 


611 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS60/0BJ=0BJ$:SATSSS60 MSRC$:SATSSS60/UPDATE=(ENHS$: SATSSS60) *EXECML$/LIB+SHRLIBS:UETP/LIB 


